home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / amos / amoslist-0195.lzh / AMOSLIST / text0029.txt < prev    next >
Encoding:
Text File  |  1995-02-01  |  1.3 KB  |  57 lines
  1. > >Just a quick question here.
  2. > >
  3. > >I want to be able to use the RND() function to create random numbers, yet
  4. > >have those "random" numbers the same under certain circumstances.  See, I
  5. > >want the user to be able to specify a "seed" number, so that inputting the
  6. > >same "seed" will provide the same results.  Should I use RANDOMIZE SEED??? 
  7. > 
  8. >   No - that won't work (although it's supposed to - bug #153).  You'll have
  9. > to use this random number routine:
  10.  
  11. [routine deleted]
  12.  
  13. > 
  14. > 
  15. >   --Andy Church
  16. > 
  17.  
  18. Well, to those of you who require seedable random numbers, here is
  19. how you do it, without requiring you to write your own RND function.
  20.  
  21. Simply use the AMOS RND function, but use a NEGATIVE
  22. number for the RND limit.
  23.  
  24. Thus:
  25.  
  26. For A = 1 to 10
  27.   Randomise 42
  28.   For B = 1 to 10
  29.     Print Rnd(100)
  30.   Next B
  31. Next A
  32.  
  33. will produce 10 sets of different random numbers, thus proving that
  34. RND in this case ignores the reseeding via Randomise.
  35.  
  36. However:
  37.  
  38. For A = 1 to 10
  39.   Randomise 42
  40.   For B = 1 to 10
  41.     Print Rnd(-100)
  42.   Next B
  43. Next A
  44.  
  45. will produce 10 sets of random numbers where each set has the
  46. SAME random numbers in the SAME sequence.
  47.  
  48. Don`t thank me, thank Europress. They told me this workaround,
  49. about the only bit of help they were regarding AMOS though.......
  50.  
  51. Hello 1995
  52.  
  53. Chris
  54. c.j.coulson@ncl.ac.uk
  55. A4000 expanding nicely
  56.  
  57.